home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / game / jump / steve2.lha / SteveAndTheZib2.AMOS / SteveAndTheZib2.amosSourceCode < prev   
AMOS Source Code  |  1980-12-12  |  4KB  |  120 lines
  1. Screen Open 1,320,256,32,Lowres
  2. 'Load "Samples.Abk"
  3. 'Load "S.abk"
  4. Unpack 12 To 1
  5. Curs Off 
  6. Flash Off 
  7. Hide 
  8. Double Buffer 
  9. Get Sprite Palette 
  10. X=100
  11. D=1
  12. F=10
  13. F1=100
  14. F2=200
  15. F3=300
  16. G=100
  17. G1=150
  18. G2=50
  19. G3=200
  20. M=1000
  21. QT=10
  22. WY=11
  23. WY1=12
  24. A:
  25. Bob 1,X,Y-ERT,D
  26. Bob 2,M,N,8
  27. Bob 3,F,G,47
  28. Bob 4,F1,G1,48
  29. Bob 5,F2,G2,49
  30. Bob 6,F3,G3,50
  31. Bob 7,M1,N1,20
  32. Bob 8,M2,N2,QT
  33. Bob 9,M3,N3,WY
  34. Bob 10,M4,N4,WY1
  35. W=W+1
  36. N1=N1-W
  37. If N1<-50 Then N1=270 : M1=X : W=0
  38. If S=0 Then M=M+4
  39. If R=0 and Jleft(1) Then X=X-4
  40. If R=0 and Jright(1) Then X=X+4
  41. If R=0 and ZIB=0 and Fire(1) Then M=X : N=Y : HIPP=-3 : ZIB=1
  42. If R=0 and STAND=1 and Jup(1) Then HOPP=-7
  43. If S=0 Then N=N+HIPP
  44. M2=M2-1
  45. M3=M3-1
  46. M4=M4-4
  47. N4=N4+KAST
  48. If POI=0 Then M4=M3 : RTY=0 : WY1=12 : N4=N3 : KAST=-6 : POI=1
  49. If POI=1 Then RTY=RTY+1
  50. If RTY>25 Then POI=2
  51. If POI=2 Then WY1=WY1+1
  52. If WY1>19 Then POI=0
  53. If M2<-100 Then R1=0 : ACTIVE=0 : QT=10 : FG=Rnd(4)
  54. If FG=4 Then If F>300 Then M2=F : N2=G
  55. If FG=3 Then If F1>300 Then M2=F1 : N2=G1
  56. If FG=2 Then If F2>300 Then M2=F2 : N2=G2
  57. If FG=1 Then If F3>300 Then M2=F3 : N2=G3
  58. If M3<-200 Then R2=0 : WY=11 : FG1=Rnd(4)
  59. If FG1=4 Then If F>300 Then M3=F : N3=G
  60. If FG1=3 Then If F1>300 Then M3=F1 : N3=G1
  61. If FG1=2 Then If F2>300 Then M3=F2 : N3=G2
  62. If FG1=1 Then If F3>300 Then M3=F3 : N3=G3
  63. M1=M1-1
  64. If ACTIVE=1 and X<M2 Then M2=M2-3 : N2=N2+HEPP
  65. If ACTIVE=1 and X>M2 Then M2=M2+3 : N2=N2+HEPP
  66. TID=TID+1
  67. If R=0 and TID>2 Then HEPP=HEPP+1 : D=D+1 : W=W+1 : KAST=KAST+1 : UR=UR+1 : TID=0
  68. If R=1 Then ERT=10 : U=U+1
  69. If UR>200 Then Fade 2 : Run "Kneppolle"
  70. If U>3 Then D=D+1 : U=0
  71. If D>19 Then End 
  72. If R=0 Then CLOCK=CLOCK+1
  73. If STAND=1 Then CLOCK=0
  74. If CLOCK>3 Then HOPP=HOPP+1 : CLOCK=0
  75. If R=0 and D>7 Then D=1
  76. KNIRP=KNIRP+1
  77. If S=1 Then M=M-1 : KNIRP=0
  78. If KNIRP>3 Then HIPP=HIPP+1 : KNIRP=0
  79. If STAND=0 Then Y=Y+HOPP
  80. F=F-1
  81. If F<-30 Then F=350 : E=1
  82. F1=F1-1
  83. If F1<-30 Then F1=350 : E1=1
  84. F2=F2-1
  85. If F2<-30 Then F2=350 : E2=1
  86. F3=F3-1
  87. If F3<-30 Then F3=350 : E3=1
  88. If E=1 Then G=Rnd(250) : E=0
  89. If E1=1 Then G1=Rnd(250) : E1=0
  90. If E2=1 Then G2=Rnd(250) : E2=0
  91. If E3=1 Then G3=Rnd(250) : E3=0
  92. STAND=0
  93. If R1=1 Then VBN=VBN+1
  94. If R2=1 Then WETY=WETY+1
  95. If WETY>3 Then WY=WY+1 : WETY=0
  96. If WY>19 Then N3=100
  97. If VBN>3 Then QT=QT+1 : VBN=0
  98. If QT>19 Then N2=1000
  99. S=0
  100. If HOPP>0 and X>F-50 and X<F+50 and Y>G-5 and Y<G+5 Then STAND=1 : Y=G
  101. If HOPP>0 and X>F1-50 and X<F1+50 and Y>G1-5 and Y<G1+5 Then STAND=1 : Y=G1
  102. If HOPP>0 and X>F2-50 and X<F2+50 and Y>G2-5 and Y<G2+5 Then STAND=1 : Y=G2
  103. If HOPP>0 and X>F3-50 and X<F3+50 and Y>G3-5 and Y<G3+5 Then STAND=1 : Y=G3
  104. If HIPP>0 and M>F-50 and M<F+50 and N>G-5 and N<G+5 Then S=1 : N=G
  105. If HIPP>0 and M>F1-50 and M<F1+50 and N>G1-5 and N<G1+5 Then S=1 : N=G1
  106. If HIPP>0 and M>F2-50 and M<F2+50 and N>G2-5 and N<G2+5 Then S=1 : N=G2
  107. If HIPP>0 and M>F3-50 and M<F3+50 and N>G3-5 and N<G3+5 Then S=1 : N=G3
  108. If HEPP>0 and M2>F-50 and M2<F+50 and N2>G-5 and N2<G+5 Then SI=1 : N2=G : HEPP=-7
  109. If HEPP>0 and M2>F1-50 and M2<F1+50 and N2>G1-5 and N2<G1+5 Then SI=1 : N2=G1 : HEPP=-7
  110. If HEPP>0 and M2>F2-50 and M2<F2+50 and N2>G2-5 and N2<G2+5 Then SI=1 : N2=G2 : HEPP=-7
  111. If HEPP>0 and M2>F3-50 and M2<F3+50 and N2>G3-5 and N2<G3+5 Then SI=1 : N2=G3 : HEPP=-7
  112. If S=1 and X>M-5 and X<M+5 and Y>N-5 and Y<N+5 Then ZIB=0 : M=1000
  113. If X>M1-5 and X<M1+5 and Y>N1-7 and Y<N1+7 Then R=1 : D=12
  114. If X>M2-75 and X<M2+75 and Y>N2-77 and Y<N2+77 Then QT=9 : ACTIVE=1
  115. If X>M2-7 and X<M2+7 and Y>N2-7 and Y<N2+7 Then R=1 : D=13
  116. If M>M2-7 and M<M2+7 and N>N2-7 and N<N2+7 Then R1=1 : QT=13
  117. If Y>270 Then End : Fade 9
  118. If X>M4-7 and X<M4+7 and Y>N4-7 and Y<N4+7 Then R=1 : D=13
  119. If M>M3-7 and M<M3+7 and N>N3-7 and N<N3+7 Then R2=1 : WY=13
  120. Goto A